home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
1st_pcb.zip
/
PCBOARD.INS
< prev
next >
Wrap
Text File
|
1993-05-15
|
6KB
|
149 lines
SPARKWARE
SCREEN(1,SAVE)
ASSIGN(FileSpec$,0,"PCBOARD.HLP")
SAVER 180
:TOP
ASSIGN(Value$,0,"Page 1")
GOSUB DRAWBOX
DIALOG_BOX(1,1,0,INTRO,"A) Introduction ",5,11,112,7,1,116,15)
DIALOG_BOX(2,1,0,LOGGING,"B) Logging into PCBoard",7,11,112,7,1,116,15)
DIALOG_BOX(3,1,0,GENERAL,"C) General information ",9,11,112,7,1,116,15)
DIALOG_BOX(4,1,0,BASIC,"D) Basic usage ",11,11,112,7,1,116,15)
DIALOG_BOX(5,1,0,ABANDON,"E) Abandon a conference",13,11,112,7,1,116,15)
DIALOG_BOX(6,1,0,BULLETIN,"F) Bulletins ",15,11,112,7,1,116,15)
DIALOG_BOX(7,1,0,CHAT,"G) Chat between nodes ",17,11,112,7,1,116,15)
DIALOG_BOX(8,1,0,COMMENTS,"H) Comments to Sysop ",19,11,112,7,1,116,15)
DIALOG_BOX(9,1,0,DOWNLOAD,"I) Download a file ",5,44,112,7,1,116,15)
DIALOG_BOX(10,1,0,DLBATCH,"J) Download Batch ",7,44,112,7,1,116,15)
DIALOG_BOX(11,1,0,DOOR,"K) Open a Door ",9,44,112,7,1,116,15)
DIALOG_BOX(12,1,0,ENTER,"L) Enter a message ",11,44,112,7,1,116,15)
DIALOG_BOX(13,1,0,FILEDIRS,"M) File directories ",13,44,112,7,1,116,15)
DIALOG_BOX(14,1,0,FLAG4DL,"N) Flag for downloading",15,44,112,7,1,116,15)
DIALOG_BOX(15,1,0,GOODBYE,"O) Goodbye (Hangup) ",17,44,112,7,1,116,15)
DIALOG_BOX(16,1,0,HELP,"P) Help functions ",19,44,112,7,1,116,15)
DIALOG_BOX(17,1,0,1,"1) More features... ",24,5,112,112,1,116,112)
DIALOG_BOX(18,1,27,2,"Q) Quit this help ",24,44,112,112,1,116,112)
DISPLAY ON
GET(Choice$,17)
CLEAR_BOXES
IF COMPARE(Choice$,1) THEN GOTO TOP1
IF COMPARE(Choice$,2) THEN GOTO DONE
GOSUB SHOW
GOTO TOP
:TOP1
ASSIGN(Value$,0,"Page 2")
GOSUB DRAWBOX
DIALOG_BOX(1,1,0,INITIAL,"A) Initial welcome ",5,11,112,7,1,116,15)
DIALOG_BOX(2,1,0,JOIN,"B) Join a conference ",7,11,112,7,1,116,15)
DIALOG_BOX(3,1,0,KILL,"C) Kill a message ",9,11,112,7,1,116,15)
DIALOG_BOX(4,1,0,LANGUAGE,"D) Language ",11,11,112,7,1,116,15)
DIALOG_BOX(5,1,0,LOCATE,"E) Locate files ",13,11,112,7,1,116,15)
DIALOG_BOX(6,1,0,MENU,"F) PCBoard menus ",15,11,112,7,1,116,15)
DIALOG_BOX(7,1,0,MODE,"G) Mode command ",17,11,112,7,1,116,15)
DIALOG_BOX(8,1,0,NEWFILES,"H) New files ",19,11,112,7,1,116,15)
DIALOG_BOX(9,1,0,NEWS,"I) News file display ",5,44,112,7,1,116,15)
DIALOG_BOX(10,1,0,PAGE,"J) Operator page ",7,44,112,7,1,116,15)
DIALOG_BOX(11,1,0,PAGELEN,"K) Page length set ",9,44,112,7,1,116,15)
DIALOG_BOX(12,1,0,QUICK,"L) Quick message scan ",11,44,112,7,1,116,15)
DIALOG_BOX(13,1,0,READ,"M) Read messages ",13,44,112,7,1,116,15)
DIALOG_BOX(14,1,0,REPLY,"N) Reply to a message ",15,44,112,7,1,116,15)
DIALOG_BOX(15,1,0,REREAD,"O) ReRead memorized msg",17,44,112,7,1,116,15)
DIALOG_BOX(16,1,0,SCRIPT,"P) Script questionnaire",19,44,112,7,1,116,15)
DIALOG_BOX(17,1,0,1,"1) More features... ",24,5,112,112,1,116,112)
DIALOG_BOX(18,1,27,2,"Q) Quit this help ",24,44,112,112,1,116,112)
DISPLAY ON
GET(Choice$,17)
CLEAR_BOXES
IF COMPARE(Choice$,1) THEN GOTO TOP2
IF COMPARE(Choice$,2) THEN GOTO DONE
GOSUB SHOW
GOTO TOP1
:TOP2
ASSIGN(Value$,0,"Page 3")
GOSUB DRAWBOX
DIALOG_BOX(1,1,0,SELECT,"A) Select conferences ",5,11,112,7,1,116,15)
DIALOG_BOX(2,1,0,PROTOCOL,"B) Transfer protocols ",7,11,112,7,1,116,15)
DIALOG_BOX(3,1,0,TEST,"C) Test a file ",9,11,112,7,1,116,15)
DIALOG_BOX(4,1,0,TEXT,"D) Text search messages",11,11,112,7,1,116,15)
DIALOG_BOX(5,1,0,UPLOAD,"E) Upload a file ",13,11,112,7,1,116,15)
DIALOG_BOX(6,1,0,UPBATCH,"F) Upload batch ",15,11,112,7,1,116,15)
DIALOG_BOX(7,1,0,USERS,"G) Users list ",17,11,112,7,1,116,15)
DIALOG_BOX(8,1,0,VIEW,"H) View settings ",19,11,112,7,1,116,15)
DIALOG_BOX(9,1,0,WRITE,"I) Write user info ",5,44,112,7,1,116,15)
DIALOG_BOX(10,1,0,EXPERT,"J) Xpert mode ",7,44,112,7,1,116,15)
DIALOG_BOX(11,1,0,YOURS,"K) Your personal mail ",9,44,112,7,1,116,15)
DIALOG_BOX(12,1,0,ZIPPY,"L) Zippy directory scan",11,44,112,7,1,116,15)
DIALOG_BOX(13,1,0,BOOLEAN,"M) Boolean text scans ",13,44,112,7,1,116,15)
DIALOG_BOX(14,1,0,1,"1) More features... ",24,5,112,112,1,116,112)
DIALOG_BOX(15,1,27,2,"Q) Quit this help ",24,44,112,112,1,116,112)
DISPLAY ON
GET(Choice$,14)
CLEAR_BOXES
IF COMPARE(Choice$,1) THEN GOTO TOP
IF COMPARE(Choice$,2) THEN GOTO DONE
GOSUB SHOW
GOTO TOP2
:DONE
DISPLAY OFF
BLOAD("SCREEN.$$$",1)
BOX(8,19,17,60,31,112,1,1)
FILLSCRN(9,20,16,59,32,30,112)
QPRINT("Clark Development Company, Inc.",10,-1,-1)
QPRINT("Post Office Box 571365",11,-1,-1)
QPRINT("Murray, UT 84157-1365",12,-1,-1)
QPRINT("(801) 261-1686",13,-1,-1)
QPRINT("Toll Free Order Line: 800-356-1686",15,-1,-1)
BLINK ON
DISPLAY ON
PAUSE 3
EXIT
:DRAWBOX
DISPLAY OFF
CLS
CURSOR OFF
BLINK OFF
FILLSCRN(1,1,25,80,32,94,7)
QPRINT("Help with PCBoard",1,-1,-1)
BOX(3,5,21,75,143,112,1,1,"",Value$)
RETURN
:SHOW
IF NOT EXIST(FileSpec$) THEN RETURN
SCREEN(2,SAVE)
DISPLAY OFF
OPEN("I",1,FileSpec$)
FILLSCRN(1,1,25,80,32,94,112)
QPRINT("Help with PCBoard",2,-1,-1)
BOX(4,5,19,76,142,7,1,0)
DISPLAY ON
SET_WINDOW(5,7,18,74)
ATTRIBUTE(143,7)
BOX(9,20,13,60,112,112,1,1,"Scanning...")
ASSIGN(Find$,0,":"+Choice$)
:SHOW_LOOP
DISPLAY OFF
CLS
MREAD(1,14,Find$)
ASSIGN(Find$,0,"")
SCREEN(3,SAVE)
BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
DISPLAY ON
PAUSE
SCREEN(3,RESTORE)
IF LASTKEY=27 THEN GOTO SHOW_DONE
IF NOT EOF(1) THEN GOTO SHOW_LOOP
:SHOW_DONE
CLOSE 1
SET_WINDOW(1,1,25,80)
SCREEN(2,RESTORE)
RETURN